From 902f3b8684ba72f414d4365e108462cf42c869e9 Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Sun, 8 Dec 2019 19:27:24 +0000 Subject: [PATCH] Version_2_6_13pre34 Gbp-Pq: Name Version_2_6_13pre34 --- unixport/sys_init.lsp.in | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/unixport/sys_init.lsp.in b/unixport/sys_init.lsp.in index 218eabde..0bd8cf91 100644 --- a/unixport/sys_init.lsp.in +++ b/unixport/sys_init.lsp.in @@ -81,5 +81,5 @@ #+ansi-cl (import 'si::(clines defentry defcfun object void int double quit bye gbc system) :user) (let* ((i 4096)(j (si::equal-tail-recursion-check i))) - (unless (eql i j) + (unless (<= (ash i -1) j) (warn "equal is not tail recursive ~s ~s" i j))) -- 2.30.2